#tag Window
Begin Window Window_Type_MainWindow
   BackColor       =   16777215
   Backdrop        =   ""
   BalloonHelp     =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   False
   Height          =   300
   ImplicitInstance=   True
   LiveResize      =   False
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   False
   MaxWidth        =   32000
   MenuBar         =   828000255
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   False
   Title           =   "Untitled"
   Visible         =   True
   Width           =   300
   Begin EditField EditField1
      AcceptTabs      =   ""
      Alignment       =   0
      AutoDeactivate  =   True
      BackColor       =   16777215
      Bold            =   ""
      Border          =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Format          =   ""
      Height          =   25
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   20
      LimitText       =   0
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Mask            =   ""
      Multiline       =   ""
      Password        =   ""
      ReadOnly        =   ""
      Scope           =   0
      ScrollbarHorizontal=   ""
      ScrollbarVertical=   True
      Styled          =   ""
      TabIndex        =   0
      TabPanelIndex   =   0
      Text            =   "Hello, World!"
      TextColor       =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   41
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   86
      BehaviorIndex   =   0
   End
   Begin PushButton efButton
      AutoDeactivate  =   True
      Bold            =   ""
      Cancel          =   ""
      Caption         =   "EditField"
      Default         =   ""
      Enabled         =   True
      Height          =   22
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   32
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   1
      TabPanelIndex   =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   221
      Underline       =   ""
      Visible         =   True
      Width           =   80
      BehaviorIndex   =   1
   End
   Begin ListBox ListBox1
      AutoDeactivate  =   True
      AutoHideScrollbars=   True
      Bold            =   ""
      ColumnCount     =   1
      ColumnsResizable=   ""
      ColumnWidths    =   ""
      DataField       =   ""
      DataSource      =   ""
      DefaultRowHeight=   -1
      Enabled         =   True
      EnableDrag      =   ""
      EnableDragReorder=   ""
      GridLinesHorizontal=   0
      GridLinesVertical=   0
      HasHeading      =   ""
      HeadingIndex    =   -1
      Height          =   165
      HelpTag         =   ""
      Hierarchical    =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      InitialValue    =   ""
      Italic          =   ""
      Left            =   157
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      RequiresSelection=   ""
      Scope           =   0
      ScrollbarHorizontal=   ""
      ScrollBarVertical=   True
      SelectionType   =   0
      TabIndex        =   2
      TabPanelIndex   =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   25
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   100
      _ScrollOffset   =   0
      _ScrollWidth    =   -1
      BehaviorIndex   =   2
   End
   Begin PushButton lbButton
      AutoDeactivate  =   True
      Bold            =   ""
      Cancel          =   ""
      Caption         =   "ListBox"
      Default         =   ""
      Enabled         =   True
      Height          =   22
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   167
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   3
      TabPanelIndex   =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   221
      Underline       =   ""
      Visible         =   True
      Width           =   80
      BehaviorIndex   =   3
   End
   Begin sjgResize sjgResize1
      AcceptFocus     =   ""
      AcceptTabs      =   ""
      AutoDeactivate  =   True
      Backdrop        =   ""
      ControlOrder    =   4
      Enabled         =   True
      EraseBackground =   True
      grabCentreColour=   16744576
      grabCornerColour=   0
      handleSize      =   5
      Height          =   17
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   290
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      maxHeight       =   250
      maxWidth        =   200
      minHeight       =   20
      minWidth        =   20
      Scope           =   0
      TabPanelIndex   =   0
      Top             =   25
      UseFocusRing    =   True
      Visible         =   False
      Width           =   18
      BehaviorIndex   =   4
   End
End
#tag EndWindow

#tag WindowCode
#tag EndWindowCode

#tag Events efButton
	#tag Event
		Sub Action()
		  Static rs As sjgResize
		  if rs = nil then
		     rs = new sjgResize1
		  end if
		  if rs.Visible Then
		    rs.Hide
		  Else
		    rs.setControl EditField1
		  end if
		  
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events ListBox1
	#tag Event
		Sub Open()
		  for i as Integer = 0 to 99
		    me.AddRow "Row "+ CStr(i)
		  next
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events lbButton
	#tag Event
		Sub Action()
		  static rs as sjgResize
		  if rs = nil then
		    rs = new sjgResize1
		  end if
		  if rs.Visible Then
		    rs.Hide
		  Else
		    rs.setControl ListBox1
		  end if
		End Sub
	#tag EndEvent
#tag EndEvents
